home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / vbtime1a / idbas_ti.bas < prev    next >
Encoding:
BASIC Source File  |  1999-08-30  |  550 b   |  15 lines
  1. Attribute VB_Name = "IDBAS_Timer"
  2. Option Explicit
  3. Declare Function SetTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
  4. Declare Function KillTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long) As Long
  5.  
  6. Public lngTimerID As Long
  7. Public intervalSet As Long
  8. Public timerEnabled As Boolean
  9. Public timerObj As CTimer
  10.  
  11. Public Sub TimerProc(ByVal hWnd As Long, ByVal uMsg As Long, ByVal idEvent As Long, ByVal dwTime As Long)
  12.     timerObj.RaiseTimer
  13. End Sub
  14.  
  15.